home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / ed_rst c8.5 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  97 lines
  1. 1 REM LEXIKOS ROSTER UTILITY C8.5
  2. 2 POKE781,VT:POKE782,HT:POKE783,PEEK(783)AND254:SYS65520:VT=0:HT=0:IFQTHENRETURN
  3. 3 SYS58692:POKE808,234:IFA=1THEN6
  4. 4 OPEN15,8,15:OPEN6,8,6,"0:SORT ML,P,R":INPUT#15,E,E$,J,J:CLOSE6:PRINT#15,"I0":IFE>1THENE=0:GOTO6
  5. 5 A=1:LOAD"SORT ML",8,1
  6. 6 DIMAA$(500):Q=1:M1$="                                      ":M2$="                    ":V$="C8.5":T$="":S=53280:POKE650,128:SYS58692:POKES,0:POKES+1,0:POKE646,15:PRINT:PRINTTAB(8)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINTTAB(9)"[158]LEXIKOS ROSTER UTILITY[155]":PRINTTAB(8)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  7. 7 [153]:[153][163]13)"DEFREVISION "V$:VT[178]17:HT[178]12:[141]2:[153]"SYSTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":VT[178]18:HT[178]12:[141]2:[153]" READING ROSTER ":K[178]1:[159]9,8,9,"0:RST,S,R":[141]10:[139]E[177]1[167]E[178]0:[160]9:[156]:[137]28
  8. 8 [132]9,AA$(K):K[178]K[170]1:[139]ST[178]0[167]8
  9. 9 [160]9:FL%[178]1:[137]37
  10. 10 E[178]0:[132]15,E,E$,JU,JU:[139]E[178]0[176]E[178]1[167]13
  11. 11 VT[178]17:[141]2:[153]M1$:[153]M1$:VT[178]18:HT[178]12:[141]2:[153]E$:[160]9:[152]15,"I0":TX[178]TI
  12. 12 [139]TI[179]TX[170]240[167]12
  13. 13 [142]
  14. 14 [153][199](166);:[153]"CMD";
  15. 15 [161]A$:[139]A$[178]""[167]15
  16. 16 [139][198](A$)[178]29[176][198](A$)[178]17[176][198](A$)[178]145[176][198](A$)[178]157[167]15
  17. 17 [139][198](A$)[178]147[176][198](A$)[178]148[176][198](A$)[178]19[176][198](A$)[178]20[167]15
  18. 18 [139]A$[178]"_"[167]24
  19. 19 [139]A$[178][199](13)[167]22
  20. 20 [139][195](T$)[178]WL[167]15
  21. 21 T$[178]T$[170]A$:[153]A$;:A$[178]"":[137]14
  22. 22 [139][195](T$)[177]25[167]T$[178][200](T$,25)
  23. 23 [153]" ":[142]
  24. 24 [139][195](T$)[179]1[167]15
  25. 25 [153]"CMD  CMDCMD";:[153][199](166);:[153]"CMD";:L[178][195](T$):[139]L[179]1[167]T$[178]"":[137]27
  26. 26 T$[178][200](T$,L[171]1)
  27. 27 [137]15
  28. 28 [151]650,0:[153]"LOAD"[163]18)"WAITSTOP":[153]"STOPLOAD";[199](34);"MENU";[199](34);",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  29. 29 [158]58692:VT[178]8:HT[178]8:[141]2:[153]"OPENREADY TO SAVE NEW ROSTER":[153]:[153]:[153][163]5)"EXISTING FILE WILL BE REPLACED ":[153]:[153]:[153][163]4)"OPENDO YOU WANT TO CONTINUE (Y/N) ?
  30. 30 GETZ$:IFZ$=""THEN30
  31. 31 IFZ$="N"ORZ$="[206]"THEN37
  32. 32 IFZ$<>"Y"THEN30
  33. 33 SYS58692:VT=12:HT=18:GOSUB2:PRINT"WAIT":VT=16:GOSUB2:PRINT#15,"I0":PRINT#15,"S0:OLD RST":INPUT#15,E,E$,E,E:PRINTE$:PRINT:PRINT#15,"R0:OLD RST=RST":INPUT#15,E,E$,E,E:PRINTE$:PRINT:OPEN9,8,9,"0:RST,S,W":GOSUB10:IFE>1THENE=0:GOTO29
  34. 34 INPUT#15,E,E$,E,E:PRINTE$:PRINT:PRINT"SAVING NEW ROSTER":FORI=1TOK:IFAA$(I)=""THEN36
  35. 35 PRINT#9,AA$(I)
  36. 36 NEXT:CLOSE9:GOTO37
  37. 37 SYS58692:N=1:PRINT:PRINTTAB(2)"[158]LEXIKOS ROSTER UTILITY ":VT=4:HT=5:GOSUB2:PRINT"SELECT OPTION -->
  38. 38 VT[178]1:HT[178]29:[141]2:[153]"ANDANDANDANDANDANDANDANDANDAND":[153][163]29)" WAITOPTIONS: ":[153][163]29)" + AHEAD  ":[153][163]29)" - BACK   ":[153][163]29)" E EDIT   ":[153][163]29)" A ADD    ":[153][163]29)" D DELETE ":[153][163]29)" F FIND   ":[153][163]29)" O ORDER  ":[153][163]29)" S SAVE   ":[153][163]29)" P PRINT  ":[153][163]29)" K KILL   
  39. 39 PRINTTAB(29)" H HELP   ":PRINTTAB(29)" Q QUIT   ":PRINTTAB(29)"[163][163][163][163][163][163][163][163][163][163]":PRINTTAB(29)"USE (_) TO":PRINTTAB(29)"BACKSPACE":VT=20:GOSUB2:PRINT"----------------------------------------
  40. 40 VT[178]6:[141]2:[139]N[177]K[167]N[178]K
  41. 41 [139]N[179]1[167]N[178]1
  42. 42 [129]I[178]0[164]6:[153]"LIST     CMDCMDCMDCMDCMD";N[170]I;"OPEN ";[200]((AA$(N[170]I)[170]M2$),20):[153]:[130]
  43. 43 [161]O$:[139]O$[178]"+"[167]N[178]N[170]1:[137]40
  44. 44 [139]O$[178]"-"[167]N[178]N[171]1:[137]40
  45. 45 [139]O$[178]""[167]43
  46. 46 [139]O$[178]"E"[176]O$[178]"VAL"[167][141]95:[137]57
  47. 47 [139]O$[178]"O"[176]O$[178]"(null)"[167][141]95:[137]80
  48. 48 [139]O$[178]"A"[176]O$[178]"ATN"[167][141]95:[137]59
  49. 49 [139]O$[178]"K"[176]O$[178]"(null)"[167][141]95:[137]68
  50. 50 [139]O$[178]"P"[176]O$[178]"(null)"[167][141]95:[137]73
  51. 51 [139]O$[178]"D"[176]O$[178]"STR$"[167][141]95:[137]60
  52. 52 [139]O$[178]"H"[176]O$[178]"LEFT$"[167][137]86
  53. 53 [139]O$[178]"F"[176]O$[178]"ASC"[167][141]95:[137]65
  54. 54 [139]O$[178]"S"[176]O$[178]"(null)"[167]29
  55. 55 [139]O$[178]"Q"[176]O$[178]"(null)"[167]28
  56. 56 [137]43
  57. 57 VT[178]22:[141]2:[153]M1$:VT[178]22:[141]2:[153]"SYSNUMBER OF NAME TO EDIT --> OPEN";:T$[178]"":WL[178]3:[141]14:VT[178]22:[141]2:[153]M1$:J[178][197](T$):[139]J[177]N[170]6[176]J[179]N[167]N[178]J[171]3
  58. 58 VT[178]21:[141]2:[153]"SYSOLD NAME #LIST"J"SYS:OPEN "AA$(J):VT[178]23:[141]2:[153]"SYSNEW NAME: POKE(null) ------------------- (null)OPEN";:VT[178]23:HT[178]11:[141]2:WL[178]20:T$[178]"":[141]14:T$[178][200](T$[170]M2$,20):AA$(J)[178]T$:VT[178]21:[141]2:[153]M1$:[153]:[153]M1$:[137]38:
  59. 59 VT[178]23:[141]2:[153]"SYSNEW NAME: POKE(null) ------------------- (null)OPEN";:VT[178]23:HT[178]11:[141]2:WL[178]20:T$[178]"":[141]14:T$[178][200](T$[170]M2$,20):N[178]K[171]6:AA$(K)[178]T$:K[178]K[170]1:VT[178]21:[141]2:[153]M1$:[153]:[153]M1$:[137]38:
  60. 60 VT[178]22:[141]2:[153]M1$:VT[178]22:[141]2:[153]"NUMBER OF NAME TO DELETE--> OPEN";:T$[178]"":WL[178]3:[141]14:VT[178]22:[141]2:[153]M1$:J[178][197](T$):[139]J[177]N[170]6[176]J[179]N[167]N[178]J[171]3
  61. 61 VT[178]21:[141]2:[153]"DELETE #LIST"J":OPEN "AA$(J):VT[178]23:[141]2:[153]"ARE YOU SURE (Y/N)?
  62. 62 GETA$:IFA$=""THEN62
  63. 63 IFA$="Y"ORA$="[217]"THENAA$(J)="":VT=21:GOSUB2:PRINTM1$:PRINT:PRINTM1$:GOTO38
  64. 64 :
  65. 65 VT=21:GOSUB2:PRINTM1$:VT=21:GOSUB2:PRINT"[158]NAME TO FIND: [151]";:PRINT"[218]-------------------- [218][159]":VT=21:HT=15:GOSUB2:T$="":WL=20:GOSUB14:VT=22:GOSUB2:J=0:FORI=1TOK:IFT$=LEFT$(AA$(I),LEN(T$))THENJ=I:I=K
  66. 66 NEXT:IFJ>0THENN=J:VT=21:GOSUB2:PRINTM1$:GOTO38
  67. 67 VT=23:HT=12:GOSUB2:PRINT"NAME NOT FOUND":GOSUB92:VT=21:GOSUB2:PRINTM1$:PRINT:PRINTM1$:GOTO38:
  68. 68 VT=21:GOSUB2:PRINTM1$:VT=21:GOSUB2:PRINT"DELETE ALL NAMES FROM FILE (KILL)":VT=23:GOSUB2:PRINTM1$:VT=23:GOSUB2:PRINT"DO YOU WANT TO CONTINUE (Y/N)?
  69. 69 [161]A$:[139]A$[178]""[167]69
  70. 70 [139]A$[178]"N"[176]A$[178]"(null)"[167]VT[178]21:[141]2:[153]M1$:[153]:[153]M1$:[137]38
  71. 71 [139]A$[179][177]"Y"[175]A$[179][177]"(null)"[167]69
  72. 72 VT[178]21:[141]2:[153]M1$:[153]:[153]M1$:VT[178]22:HT[178]9:[141]2:[153]"OPENKILLED FILE NOT SAVED!":AA$(1)[178]"FILE KILLED         ":[129]I[178]2[164]K:AA$(I)[178]"":[130]:K[178]1:[141]92:VT[178]22:[141]2:[153]M1$:[137]38:
  73. 73 VT[178]21:[141]2:[153]M1$:VT[178]21:[141]2:[153]"SYSIS YOUR PRINTER READY (Y/N)?
  74. 74 GETA$:IFA$=""THEN74
  75. 75 IFA$="Q"ORA$="[209]"THENVT=21:GOSUB2:PRINTM1$:PRINT:PRINTM1$:GOTO38
  76. 76 IFA$="Y"ORA$="[217]"THEN79
  77. 77 IFA$<>"N"ANDA$<>"[206]"THEN74
  78. 78 VT=23:GOSUB2:PRINTM1$:VT=23:GOSUB2:PRINT"[159]PLEASE MAKE PRINTER READY NOW":GOSUB92:GOSUB92:VT=23:GOSUB2:PRINTM1$:VT=23:HT=11:GOSUB2:PRINT"ENTER ([155]Q) TO ABORT":GOTO73
  79. 79 OPEN4,4:VT=21:GOSUB2:PRINTM1$:PRINT:PRINTM1$:VT=22:HT=10:GOSUB2:PRINT"[158]PRINTING..":PRINT#4,"LEXIKOS PLAYER ROSTER":PRINT#4," ":FORI=1TOKSTEP4:PRINT#4,AA$(I);AA$(I+1);AA$(I+2);AA$(I+3):NEXT:PRINT#4:CLOSE4:GOTO38:
  80. 80 T=0:FORI=0TO3:T=T+PEEK(49152+I):NEXT:IFT<>491THENT=64:VT=21:GOSUB2:PRINT"THIS OPTION REQUIRES  [159]LIGHTNING SORT
  81. 81 [139]T[178]64[167][153]"UTIL. TO BE ON THIS DISK WITH THE NAME
  82. 82 IFT=64THENPRINT"[159]SORT ML. SEE (C) COMPUTE, SEPT. 1984
  83. 83 [139]T[178]64[167][141]92:[141]92:[141]92:[141]92
  84. 84 [139]T[178]64[167]VT[178]21:[141]2:[129]I[178]1[164]3:[153]M1$:[130]:[137]38
  85. 85 [158]49152,K,AA$(0):[137]38
  86. 86 [158]58692:[153]:[153]"SYSPROGRAM OPTIONS:":[153]:[153]:[153]"AHEAD:OPEN  ADVANCE TO NEXT NAMES":[153]"BACK:OPEN   GO BACK TO PREVIOUS NAMES":[153]"EDIT:OPEN   CHANGE PLAYER'S NAME":[153]"ADD:OPEN    ADD NEW PLAYER TO ROSTER":[153]"DELETE:OPEN REMOVE PLAYER FROM ROSTER
  87. 87 PRINT"FIND:[159]   SEE IF NAME IS ON THE ROSTER":PRINT"ORDER:[159]  PLACE IN ALPHABETICAL ORDER":PRINT"        REQUIRES USER TO SAVE A COPY":PRINT"        OF [158]LIGHTNING SORT FROM SEPT.":PRINT"        1984 COMPUTE!. SAVE ML ONLY":PRINT"        WITH THE NAME [158]SORT ML
  88. 88 [153]"SAVE:OPEN   SAVE NEW ROSTER ON DISK":VT[178]22:HT[178]8:[141]2:[153]"SYSPRESS RETURN TO CONTINUE
  89. 89 GETZ$:IFZ$<>CHR$(13)THEN89
  90. 90 GOTO37
  91. 91 GOTO91
  92. 92 TX=TI
  93. 93 IFTI<TX+120THEN93
  94. 94 RETURN
  95. 95 VT=1:HT=29:GOSUB2:PRINT"[151][175][175][175][175][175][175][175][175][175][175]":PRINTTAB(29)" [146]OPT.OFF: ":PRINTTAB(29)" + AHEAD  ":PRINTTAB(29)" - BACK   ":PRINTTAB(29)" E EDIT   ":PRINTTAB(29)" A ADD    ":PRINTTAB(29)" D DELETE ":PRINTTAB(29)" F FIND   ":PRINTTAB(29)" O ORDER  ":PRINTTAB(29)" S SAVE   ":PRINTTAB(29)" P PRINT  ":PRINTTAB(29)" K KILL   
  96. 96 [153][163]29)" H HELP   ":[153][163]29)" Q QUIT   ":[153][163]29)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[142]
  97.